---
title: "家庭動態社會調查主樣本的生活滿意度"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    source_code: embed
---
```{r}
library(flexdashboard)
library(readr)
library(tidyr)
library(stringr)
library(lubridate)
library(ggplot2)
library(magrittr)
library(showtext)
library(grDevices)
library(scales)
library(colorspace)
```

```{r}
load("psfdPlot.Rda")
load("psfddata.Rda")
```

Column {.tabset data-width=400}
-------------------------------------
### 生活快樂與順遂分數

```{r}
graph$happylife
```   
 
### 自己與其伴侶的健康分數
    
```{r}
graph$health
```

### 工作、家庭、經濟、婚姻滿意度分數

```{r}
graph$satisfaction
```